home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue72 / construc / HitchHikerImport.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-07-03  |  418 b   |  20 lines
  1. Unit HitchHikerImport;
  2. interface
  3. uses
  4.   Types, XSBuiltIns;
  5.  
  6. type
  7.   IHitchHiker = interface(IInvokable)
  8.     ['{E325004C-3203-482D-95F8-30D0286C68DC}']
  9.     function TheAnswer: Integer;  stdcall;
  10.     function TheQuestion: WideString;  stdcall;
  11.   end;
  12.  
  13. implementation
  14. uses
  15.   InvokeRegistry;
  16.  
  17. initialization
  18.   InvRegistry.RegisterInterface(TypeInfo(IHitchHiker), 'urn:HitchHiker-IHitchHiker', '');
  19. end.
  20.